﻿Module Module1
  Sub Main()

    Dim nl As String = Environment.NewLine
    Dim stringa1 As String = "Visual "
    Dim stringa2 As String = "Basic"
    Dim stringa3 As String = "2010"
    Console.WriteLine("" & _
      "stringa1 = " & stringa1 & nl & _
      "stringa2 = " & stringa2 & nl & _
      "stringa finale 1 = " & _
      String.Concat(stringa1, stringa2) & _
        nl & "stringa finale 2 = " & _
      String.Concat(stringa1, stringa2, _
        " ", stringa3))
    Console.ReadLine()

  End Sub
End Module
